|
![](/i/fill.gif) |
POV-RC3, Duron 800. 512 MB DDR, Win98SE
Enter this code:
#declare sp0 = spline {
cubic_spline
-1, <0, -50, -20>
0.0, <0, 0, 0>
0.5, <20, 50, 0>
1.0, <0, 100, 20>
1.5, <-20, 150, 0>
}
#declare rb = array[2] { 15, 5 }
#declare nseg = 20;
#macro MakeSegs(Level, spl, fName)
#local i = 0;
#while ( i<nseg )
#local pst = spl(i/nseg);
#local pen = spl((i+1)/nseg);
#write (pFile, concat(" cylinder {
<",vstr(3,pst,",",0,6),">,<",vstr(3,pen,",",0,6),">,",str(rb[Level],0,5),",
1 }\n")
#write (pFile, concat(" sphere {
<",vstr(3,pen,",",0,6),">,",str(rb[Level],0,5),", -1 }\n")
#local i = i + 1;
#end
#end
#fopen pFile "sktext.inc" write
#write (pFile, "blob {\n threshold 0\n")
#local i = 0;
#while (i<2000)
MakeSegs(1,sp0,"rew")
#local i = i + 1;
#end
#fclose pFile
POV screams: Stack overflow
Post a reply to this message
|
![](/i/fill.gif) |